use strict;
use warnings;

my @items = qw(wilma diano pebbles);
my $format = "The items are:\n".("%10s\n" x @items);
print "the format is >>$format<<\n";
printf ($format, @items);
